home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / POINTS.for < prev    next >
Text File  |  1991-04-13  |  319b  |  15 lines
  1.         SUBROUTINE POINTS(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4.     REAL*4 VX,VY
  5. C
  6. C       THIS SUBROUTINE IS USED TO PLOT POINTS ON THE SCREEN
  7. C
  8.         REAL*4 X(NPTS),Y(NPTS)
  9.         DO 100 I=1, NPTS
  10.         CALL SCALE(X(I),Y(I),VX,VY)
  11.         CALL GSMOVE(VX,VY)
  12. 100     CALL SYMBOL(3,0.3)
  13.         RETURN
  14.         END
  15.